Chip 1998 July/Chip_1998-07_cd.bin/zkuste/mazda/mazIn311.dxr/Internal_4_Video Control.ls

Text File | 1998-05-06 | 1.1 KB | 29 lines

property videoSprite, VideoCommand

on InitVidControl me
  case the VideoCommand of me of
    #play:
      set the movieRate of sprite the videoSprite of me to 1
    #pause:
      set the movieRate of sprite the videoSprite of me to 0
    #stop:
      set the movieRate of sprite the videoSprite of me to 0
      set the movieTime of sprite the videoSprite of me to 0
    #Rewind:
      set the movieTime of sprite the videoSprite of me to 0
  end case
end

on mouseUp me
  InitVidControl(me)
end

on getPropertyDescriptionList
  set p_list to [#VideoCommand: [#comment: "Command:", #format: #symbol, #range: [#play, #pause, #stop, #Rewind], #default: #play], #videoSprite: [#comment: "Video Sprite Channel:", #format: #integer, #default: 1]]
  return p_list
end

on getBehaviorDescription
  return "Provides Play, Pause, Stop, or Rewind controls for a digital video sprite." & RETURN & "PARAMETERS:" & RETURN & "ΓÇó Command - Choose the video playback command to invoke ( Play, Pause, Stop, Rewind )." & RETURN & "ΓÇó Sprite - Enter the number of sprite channel in which video is displayed."
end